home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / CBASE102.ARJ / LSCREATE.C < prev    next >
Text File  |  1991-09-23  |  3KB  |  130 lines
  1. /*    Copyright (c) 1989 Citadel    */
  2. /*       All Rights Reserved        */
  3.  
  4. /* #ident    "@(#)lscreate.c    1.5 - 91/09/23" */
  5.  
  6. #include <ansi.h>
  7.  
  8. /* ansi headers */
  9. #include <errno.h>
  10. #ifdef AC_STDDEF
  11. #include <stddef.h>
  12. #endif
  13. #ifdef AC_STRING
  14. #include <string.h>
  15. #endif
  16.  
  17. /* library headers */
  18. #include <blkio.h>
  19.  
  20. /* local headers */
  21. #include "lseq_.h"
  22.  
  23. /*man---------------------------------------------------------------------------
  24. NAME
  25.      lscreate - create an lseq
  26.  
  27. SYNOPSIS
  28.      int lscreate(filename, recsize)
  29.      const char *filename;
  30.      size_t recsize;
  31.  
  32. DESCRIPTION
  33.      The lscreate function creates the file named by filename as an
  34.      lseq.
  35.  
  36.      recsize is the size of the records in the lseq.
  37.  
  38.      lscreate will fail if one or more of the following is true:
  39.  
  40.      [EINVAL]       filename is the NULL pointer.
  41.      [EINVAL]       recsize is less than 1.
  42.      [LSEMFILE]     Too many open lseqs.  The maximum
  43.                     is defined as LSOPEN_MAX in lseq.h.
  44.  
  45. SEE ALSO
  46.      lsopen.
  47.  
  48. DIAGNOSTICS
  49.      Upon successful completion, a value of 0 is returned.  Otherwise,
  50.      a value of -1 is returned, and errno set to indicate the error.
  51.  
  52. ------------------------------------------------------------------------------*/
  53. #ifdef AC_PROTO
  54. int lscreate(const char * filename, size_t recsize)
  55. #else
  56. int lscreate(filename, recsize)
  57. const char * filename;
  58. size_t recsize;
  59. #endif
  60. {
  61.     int    terrno    = 0;
  62.     lseq_t *lsp    = NULL;
  63.  
  64.     /* validate input parameters */
  65.     if (filename == NULL || recsize < sizeof(lspos_t)) {
  66.         errno = EINVAL;
  67.         return -1;
  68.     }
  69.  
  70.     /* find free slot in lsb table */
  71.     for (lsp = lsb; lsp < (lsb + LSOPEN_MAX); lsp++) {
  72.         if (!(lsp->flags & LSOPEN)) {
  73.             break;        /* found */
  74.         }
  75.     }
  76.     if (lsp >= lsb + LSOPEN_MAX) {
  77.         errno = LSEMFILE;
  78.         return -1;        /* no free slots */
  79.     }
  80.  
  81.     /* load lseq_t structure */
  82.     lsp->lshdr.flh = NIL;
  83.     lsp->lshdr.recsize = recsize;
  84.     lsp->lshdr.flags = 0;
  85.     lsp->lshdr.first = NIL;
  86.     lsp->lshdr.last = NIL;
  87.     lsp->lshdr.reccnt = 0;
  88.     lsp->bp = NULL;
  89.     lsp->flags = LSREAD | LSWRITE;
  90.     lsp->clspos = NIL;
  91.     lsp->clsrp = NULL;
  92.     if (ls_alloc(lsp) == -1) {
  93.         LSEPRINT;
  94.         memset(lsp, 0, sizeof(*lsb));
  95.         lsp->flags = 0;
  96.         return -1;
  97.     }
  98.  
  99.     /* create file */
  100.     lsp->bp = bopen(filename, "c", sizeof(lshdr_t), (size_t)1, (size_t)0);
  101.     if (lsp->bp == NULL) {
  102.         if (errno != EEXIST) LSEPRINT;
  103.         ls_free(lsp);
  104.         memset(lsp, 0, sizeof(*lsb));
  105.         lsp->flags = 0;
  106.         return -1;
  107.     }
  108.  
  109.     /* write header to file */
  110.     if (bputh(lsp->bp, &lsp->lshdr) == -1) {
  111.         LSEPRINT;
  112.         terrno = errno;
  113.         bclose(lsp->bp);
  114.         ls_free(lsp);
  115.         memset(lsp, 0, sizeof(*lsb));
  116.         lsp->flags = 0;
  117.         errno = terrno;
  118.         return -1;
  119.     }
  120.  
  121.     /* close lsp */
  122.     if (lsclose(lsp) == -1) {
  123.         LSEPRINT;
  124.         ls_free(lsp);
  125.         return -1;
  126.     }
  127.  
  128.     return 0;
  129. }
  130.